home *** CD-ROM | disk | FTP | other *** search
/ Magnum One / Magnum One (Mid-American Digital) (Disc Manufacturing).iso / d3 / amac33.arc / SRL.QM < prev    next >
Text File  |  1991-04-28  |  1KB  |  23 lines
  1. * This macro is used with SRL.BAT.  See SRCHxx.QM for documentation.
  2. *
  3. @7 macrobegin
  4. ***************************************** LOAD FOUND FILES
  5.         altwordset                      * for all file names
  6.         endfile                         * get to end of file
  7.  CHECKAGAIN:                            *
  8.         unmarkblock                     * clear last file name
  9.         find #42 "Fi" return "B"  return* Find file name
  10.         wordright                       * move to space
  11.         wordright                       * move to file name
  12.         markcolumn                      * mark it
  13.         endline                         * get all name in block
  14.         copy                            * copy file name to scrap
  15.         EditFile                        * get ready to load
  16.         CurrentFilename " "             * to force return *here*
  17.         Paste Return                    * paste file name & do it!
  18.         cursorup                        * go to next line
  19.  jfalse END:                            * No more file names? End
  20.  jump CHECKAGAIN:                       * check again
  21.  END:                                   *
  22.         defaultwordset                  * set default
  23.